perm filename JEFFRY.H1[C,JRA] blob sn#034729 filedate 1973-04-12 generic text, type T, neo UTF8
this is from bruce anderson DBA
	I've just tried getting the UCI version of Conniver up
and had some trouble.

1.  Compiler gives error message and stops
	CREMOVE
	*COMPILER ERROR* LDLSTLEFT - PASS2
Cremove is the last function name mentioned, though the LAP file
contains code for the two following functions REMOVE and INSERT,
but stops there.

2.  Loading bugs out with reg. pdl overflow (even with it set to
2000) when loading SEPARATOR.  At least, NXTCHR is the last name
printed out.

The bits of code are the following:


Compiler doesn't like this

	(DEFPROP CREMOVE
	 (LAMBDA N (UNREALIZE (DATUMIZE (ARG 1)) (COND ((GETCONTEXT 1 N)) ((ARG N)))
))
	EXPR)
	
	(DEFPROP REMOVE
	 ((THING "OPTIONAL" (CONTEXT CONTEXT)) (UNREALIZE (/@ DATUMIZE (/, THING)) C
ONTEXT))
	CEXPR)
	
	(DEFPROP INSERT
	 (LAMBDA N ((LAMBDA (D) (REVEAL D (COND ((GETCONTEXT 1 N)) ((ARG N)))) D) (D
ATUMIZE (ARG 1))))
	EXPR)
	
	(DEFPROP KILL
	 (LAMBDA N ((LAMBDA (D) (HIDE D (COND ((GETCONTEXT 1 N)) ((ARG N)))) D) (DAT
UMIZE (ARG 1))))
	EXPR)
	
Lisp troublemaker

	(DEFPROP NXTCHR
	 (LAMBDA NIL (INTERN (ASCII TYIPEEK))))
	EXPR)

	(DEFPROP SEPARATOR
	 (LAMBDA (CHAR) (MEMQ# CHAR (QUOTE (/  /	 /) /] /} /
	/))))
	EXPR)

Lap troublemaker

(LAP NXTCHR SUBR) 
	       (CALL 0 (E TYIPEEK) S) 
	       (CALL 1 (E ASCII) S) 
	       (JCALL 1 (E INTERN) S) 
	       NIL 

	(LAP SEPARATOR SUBR) 
 09800	       (MOVEI 2 (QUOTE (/  /	 /) /] /⎇ /
	 /)) S)  (JCALL 2 (E MEMQ#) S) 
	       NIL 

	(SETQ *INDEXTHRESHOLD 12)